home *** CD-ROM | disk | FTP | other *** search
/ Magazyn Exec 3 / CD_Magazyn_EXEC_nr_3.iso / Gry / Tales of Tamar Demo.lha / talesdemo1 / rexx / Start_TCP_IP_Genesis.rexx < prev    next >
OS/2 REXX Batch file  |  1999-11-17  |  3KB  |  53 lines
  1. /******************************************************************************************************/
  2. /* Online-Script mit Arexx                                                                            */
  3. /*     © by Martin Wolf / Eternity Hard & Software                                                  */
  4. /*      First Bit set: 03.05.1998                                                                     */
  5. /*      Last Bit set :                                                                                */
  6. /*                                                                                                */
  7. /*                                                                                                    */
  8. /*      Version 1.01 : Wenn Port schon offen ist wird Script übersprungen                             */
  9. /*      Version 1.02 : Env-Var Deja wird angelegt                                      */
  10. /*      Version 1.03 : Library rexxsupport.library wird jetzt geladen                      */
  11. /*      Version 1.04 : Das Vorhanden sein des Stacks wird jetzt auch überprüft                  */
  12. /*                                                                                                    */
  13. /******************************************************************************************************/
  14.  
  15. OPTIONS RESULTS
  16.  
  17.  
  18. ADDRESS COMMAND
  19.     IF ~SHOW('L','rexxsupport.library') THEN    /* Library laden, damit            */
  20.       CALL ADDLIB('rexxsupport.library',0,-30,0)    /* Assign-Suche ohne Meldung        */
  21.  
  22.     IF ~SHOWLIST('A','AMITCP') THEN            /* Wenn kein TCPIP-Assign da ist    */
  23.       DO
  24.         'Setenv ToTDemo1:Data/TCPIPDeja -1'        /* direkt raus hier            */
  25.         EXIT
  26.       END
  27.  
  28.     IF ~EXISTS('AmiTCP:Genesis') THEN        /* Auf rexxsys verzichten        */
  29.       DO                        /* Üble Sache ! TCP-IP nicht korrekt installiert*/
  30.         'Setenv ToTDemo1:Data/TCPIPDeja -1'        /* es wurde wieder rumgefuscht         */ 
  31.         EXIT
  32.       END
  33.  
  34.     IF SHOW('P','GENESIS') THEN            /* TCPIP-Port da ?            */
  35.       'Setenv ToTDemo1:Data/TCPIPDeja 1'        /* Env-Var setzen            */
  36.     ELSE
  37.       'Setenv ToTDemo1:Data/TCPIPDeja 0'        /* keiner gestartet            */
  38.     IF ~SHOW('P','GENESIS') THEN
  39.       DO
  40.         'run >NIL: AmiTCP:Genesis >NIL:'        /* Existiert TCPIP-Stack überhaupt dort ?*/
  41.         DO UNTIL SHOW('P','GENESIS')        /* Auf TCPIP-Stack warten warten    */
  42.           SIGNAL OFF ERROR                /* Fehler-Meldung solange auschalten    */
  43.           'WaitForPort GENESIS'            /* Isser nu da ?            */
  44.           SIGNAL ON ERROR                /* Fehler-Meldungen wieder ein        */
  45.         END                        
  46.       END
  47.     ENDIF
  48.         tcpipport = GENESIS                /* ist auf jeden Fall der aktive Port    */
  49.  
  50. ADDRESS (tcpipport)
  51.     HIDE
  52.     EXIT
  53.